home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / form1040.sit / Form 1040 / card_13895.txt < prev    next >
Text File  |  1988-02-12  |  9KB  |  401 lines
  1. -- card: 13895 from stack: in
  2. -- bmap block id: 15173
  3. -- flags: 4000
  4. -- background id: 6557
  5. -- name: 24
  6. ----- HyperTalk script -----
  7. On OpenCard
  8.   Put 24 Into Bkgnd field ID 26
  9. end OpenCard
  10.  
  11. On ClearInfo
  12.   Put empty into Card field ID 16 of Card ID 13895 -- line 20
  13.   Put empty into Card field ID 17 of Card ID 13895 -- line 21
  14.   Put empty into Card field ID  4 of Card ID 13895
  15.   Put 0 into Card field ID 18 of Card ID 13895 -- line 22
  16.   Put 0 into Card field ID 19 of Card ID 13895 -- line 23
  17.   Put 0 into Card field ID 20 of Card ID 13895 -- line 24
  18. end ClearInfo
  19.  
  20.  
  21. -- part 3 (field)
  22. -- low flags: 01
  23. -- high flags: 0000
  24. -- rect: left=89 top=120 right=135 bottom=394
  25. -- title width / last selected line: 0
  26. -- icon id / first selected line: 0 / 0
  27. -- text alignment: 0
  28. -- font id: 3
  29. -- text size: 10
  30. -- style flags: 0
  31. -- line height: 13
  32. -- part name: 
  33.  
  34.  
  35. -- part 4 (field)
  36. -- low flags: 00
  37. -- high flags: 4000
  38. -- rect: left=103 top=138 right=192 bottom=388
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 0
  42. -- font id: 3
  43. -- text size: 10
  44. -- style flags: 0
  45. -- line height: 13
  46. -- part name: 
  47.  
  48.  
  49. -- part 5 (field)
  50. -- low flags: 01
  51. -- high flags: 0000
  52. -- rect: left=89 top=196 right=224 bottom=394
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 0
  56. -- font id: 3
  57. -- text size: 10
  58. -- style flags: 0
  59. -- line height: 13
  60. -- part name: 
  61.  
  62.  
  63. -- part 6 (field)
  64. -- low flags: 01
  65. -- high flags: 0000
  66. -- rect: left=89 top=228 right=256 bottom=394
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 0
  70. -- font id: 3
  71. -- text size: 10
  72. -- style flags: 0
  73. -- line height: 13
  74. -- part name: 
  75.  
  76.  
  77. -- part 7 (field)
  78. -- low flags: 01
  79. -- high flags: 0000
  80. -- rect: left=89 top=259 right=287 bottom=394
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 0
  84. -- font id: 3
  85. -- text size: 10
  86. -- style flags: 0
  87. -- line height: 13
  88. -- part name: 
  89.  
  90.  
  91. -- part 8 (field)
  92. -- low flags: 01
  93. -- high flags: 0000
  94. -- rect: left=89 top=89 right=117 bottom=394
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 0
  98. -- font id: 3
  99. -- text size: 10
  100. -- style flags: 0
  101. -- line height: 13
  102. -- part name: 
  103.  
  104.  
  105. -- part 11 (field)
  106. -- low flags: 01
  107. -- high flags: 0002
  108. -- rect: left=393 top=101 right=117 bottom=419
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 1
  112. -- font id: 3
  113. -- text size: 10
  114. -- style flags: 256
  115. -- line height: 13
  116. -- part name: 
  117.  
  118.  
  119. -- part 12 (field)
  120. -- low flags: 01
  121. -- high flags: 0002
  122. -- rect: left=393 top=175 right=191 bottom=419
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 1
  126. -- font id: 3
  127. -- text size: 10
  128. -- style flags: 256
  129. -- line height: 13
  130. -- part name: 
  131.  
  132.  
  133. -- part 13 (field)
  134. -- low flags: 01
  135. -- high flags: 0002
  136. -- rect: left=393 top=209 right=225 bottom=419
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 1
  140. -- font id: 3
  141. -- text size: 10
  142. -- style flags: 256
  143. -- line height: 13
  144. -- part name: 
  145.  
  146.  
  147. -- part 14 (field)
  148. -- low flags: 01
  149. -- high flags: 0002
  150. -- rect: left=393 top=241 right=257 bottom=419
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 0 / 0
  153. -- text alignment: 1
  154. -- font id: 3
  155. -- text size: 10
  156. -- style flags: 256
  157. -- line height: 13
  158. -- part name: 
  159.  
  160.  
  161. -- part 15 (field)
  162. -- low flags: 01
  163. -- high flags: 0002
  164. -- rect: left=393 top=272 right=288 bottom=419
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 1
  168. -- font id: 3
  169. -- text size: 10
  170. -- style flags: 256
  171. -- line height: 13
  172. -- part name: 
  173.  
  174.  
  175. -- part 16 (field)
  176. -- low flags: 00
  177. -- high flags: 0002
  178. -- rect: left=418 top=101 right=117 bottom=503
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 65535
  182. -- font id: 3
  183. -- text size: 10
  184. -- style flags: 0
  185. -- line height: 13
  186. -- part name: 
  187.  
  188.  
  189. -- part 17 (field)
  190. -- low flags: 00
  191. -- high flags: 0002
  192. -- rect: left=418 top=175 right=191 bottom=503
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 65535
  196. -- font id: 3
  197. -- text size: 10
  198. -- style flags: 0
  199. -- line height: 13
  200. -- part name: 
  201.  
  202.  
  203. -- part 18 (field)
  204. -- low flags: 01
  205. -- high flags: 0002
  206. -- rect: left=418 top=209 right=225 bottom=503
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 65535
  210. -- font id: 3
  211. -- text size: 10
  212. -- style flags: 0
  213. -- line height: 13
  214. -- part name: 
  215. ----- HyperTalk script -----
  216. On MouseUp
  217.   Send "MouseUp" to Card Button ID 21 of Card ID 13895
  218. End MouseUp
  219.  
  220.  
  221. -- part 19 (field)
  222. -- low flags: 01
  223. -- high flags: 0002
  224. -- rect: left=418 top=241 right=257 bottom=503
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 0 / 0
  227. -- text alignment: 65535
  228. -- font id: 3
  229. -- text size: 10
  230. -- style flags: 0
  231. -- line height: 13
  232. -- part name: 
  233. ----- HyperTalk script -----
  234. On MouseUp
  235.   Send "MouseUp" to Card Button ID 22 of Card ID 13895
  236. End MouseUp
  237.  
  238.  
  239. -- part 20 (field)
  240. -- low flags: 01
  241. -- high flags: 0002
  242. -- rect: left=418 top=272 right=288 bottom=503
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 0 / 0
  245. -- text alignment: 65535
  246. -- font id: 3
  247. -- text size: 10
  248. -- style flags: 0
  249. -- line height: 13
  250. -- part name: 
  251. ----- HyperTalk script -----
  252. On MouseUp
  253.   Send "MouseUp" to Card Button ID 24 of Card ID 13895
  254. End MouseUp
  255.  
  256.  
  257. -- part 21 (button)
  258. -- low flags: 00
  259. -- high flags: A003
  260. -- rect: left=114 top=195 right=209 bottom=149
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 1
  264. -- font id: 0
  265. -- text size: 12
  266. -- style flags: 0
  267. -- line height: 16
  268. -- part name: Add
  269. ----- HyperTalk script -----
  270. on mouseUp
  271.   Put 0 into temp
  272.   Add Card field ID 16 of Card ID 13895 to Temp
  273.   Add Card field ID 17 of Card ID 13895 to temp
  274.   Put temp into Card field ID 18 of Card ID 13895
  275. end mouseUp
  276.  
  277.  
  278.  
  279. -- part 22 (button)
  280. -- low flags: 00
  281. -- high flags: A003
  282. -- rect: left=113 top=225 right=242 bottom=177
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 0 / 0
  285. -- text alignment: 1
  286. -- font id: 0
  287. -- text size: 12
  288. -- style flags: 0
  289. -- line height: 16
  290. -- part name: Multiply
  291. ----- HyperTalk script -----
  292. on mouseUp
  293.   Set cursor to 4
  294.   Set numberformat to "#########0.00"
  295.   Put 2/100 into temp
  296.   Put Card field ID 3 of card ID 2598 into Temp1
  297.   Put Temp1 * temp into Card field ID 19 of card ID 13895
  298. end mouseUp
  299.  
  300.  
  301.  
  302. -- part 24 (button)
  303. -- low flags: 00
  304. -- high flags: A003
  305. -- rect: left=113 top=258 right=273 bottom=183
  306. -- title width / last selected line: 0
  307. -- icon id / first selected line: 0 / 0
  308. -- text alignment: 1
  309. -- font id: 0
  310. -- text size: 12
  311. -- style flags: 0
  312. -- line height: 16
  313. -- part name: Subtract
  314. ----- HyperTalk script -----
  315. on mouseUp
  316.   Put Card field ID 18 of Card ID 13895 into Temp -- line 22
  317.   Put Card field ID 19 of Card ID 13895 into Temp1 --line 23
  318.   If Temp - Temp1 < 0 then
  319.     Put Zero into Card field ID 20 of Card ID 13895
  320.     Exit MouseUp
  321.   end if
  322.   Put Temp - Temp1 into Card field ID 20 of Card ID 13895
  323. end mouseUp
  324.  
  325.  
  326.  
  327. -- part contents for background part 40
  328. ----- text -----
  329. 4:08 PM
  330.  
  331. -- part contents for background part 26
  332. ----- text -----
  333. 24
  334.  
  335. -- part contents for background part 13
  336. ----- text -----
  337. Miscellaneous Deductions Subject to 2% AGI Limit
  338.  
  339. -- part contents for background part 16
  340. ----- text -----
  341. (See Instructions on page 24.)
  342.  
  343. -- part contents for background part 20
  344. ----- text -----
  345. Continue to next card
  346.  
  347. -- part contents for card part 8
  348. ----- text -----
  349. 20. Unreimbursed employee business expenses 
  350.       (attach Form 2106) . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
  351.  
  352. -- part contents for card part 3
  353. ----- text -----
  354. 21. Other Expenses (list type and amount)
  355.  
  356. -- part contents for card part 5
  357. ----- text -----
  358. 22.               the amounts on lines 20 and 21. Enter the 
  359.       total here. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
  360.  
  361. -- part contents for card part 6
  362. ----- text -----
  363. 23.                          the amount Form 1040, line 31, by 
  364.        2% (.02). Enter the result here. . . . . . . . . . . . . . . . . . . . . . . . .
  365.  
  366. -- part contents for card part 7
  367. ----- text -----
  368. 24.                          line 23 from 22. Enter the result 
  369.       (but not less than zero) . . . . . . . . . . . . . . . . . . . . . . . . . .
  370.  
  371. -- part contents for card part 11
  372. ----- text -----
  373. 20
  374.  
  375. -- part contents for card part 12
  376. ----- text -----
  377. 21
  378.  
  379. -- part contents for card part 13
  380. ----- text -----
  381. 22
  382.  
  383. -- part contents for card part 14
  384. ----- text -----
  385. 23
  386.  
  387. -- part contents for card part 15
  388. ----- text -----
  389. 24
  390.  
  391. -- part contents for card part 18
  392. ----- text -----
  393. 0
  394.  
  395. -- part contents for card part 19
  396. ----- text -----
  397. 0
  398.  
  399. -- part contents for card part 20
  400. ----- text -----
  401. 0